home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD004b.dsk / REMEMBER.LETTERS.bas < prev    next >
BASIC Source File  |  2003-06-12  |  2KB  |  48 lines
  1. 10  TEXT : HOME :A = 1
  2. 20  VTAB 4: HTAB 10: INVERSE : PRINT "               "
  3. 30  VTAB 5: HTAB 10: PRINT " GUESS LETTERS "
  4. 40  VTAB 6: HTAB 10: PRINT "               ": NORMAL 
  5. 50  VTAB 12: PRINT "TRY TO REMEMBER THE SEQUENCE OF LETTERS"
  6. 60  PRINT : PRINT "PRINTED ON THE SCREEN"
  7. 70  GOSUB 400: HOME 
  8. 80 L$ = "":GU$ = ""
  9. 90 A = A +1
  10. 100  VTAB 8: HTAB 5: PRINT "CAN YOU REMEMBER ";A;" LETTERS?"
  11. 110  FOR N = 1 TO A
  12. 120 L =  INT( RND(1) *26) +65
  13. 130 N$ =  CHR$(L)
  14. 140 L$ = L$ +N$
  15. 150  NEXT N
  16. 160  VTAB 12: HTAB 8: PRINT L$
  17. 170  FOR PA = 1 TO 400 *A: NEXT PA
  18. 180  HOME : VTAB 3: PRINT "ENTER THE LETTERS IN THE SEQUENCE THAT": PRINT : PRINT "YOU REMEMBER:"
  19. 190  PRINT : PRINT 
  20. 200  FOR N = 1 TO A
  21. 210  GET G$: PRINT G$;
  22. 220 GU$ = GU$ +G$
  23. 230  IF  MID$ (L$,N,1) < >G$  THEN  GOSUB 500
  24. 240  NEXT N
  25. 250  VTAB 14: HTAB 10: INVERSE : PRINT "               "
  26. 260  VTAB 15: HTAB 10: PRINT " G R E A T ! ! "
  27. 270  VTAB 16: HTAB 10: PRINT "               ": NORMAL 
  28. 280  GOSUB 400
  29. 290  HOME : GOTO 80
  30. 400  VTAB 22: PRINT "HIT ANY KEY TO CONTINUE  ";: GET A$: PRINT 
  31. 410  RETURN 
  32. 500  HOME : VTAB 3: HTAB 10: INVERSE : PRINT "                 "
  33. 510  VTAB 4: HTAB 10: PRINT " YOU DUMMY ! ! ! "
  34. 520  VTAB 5: HTAB 10: PRINT "                 ": NORMAL 
  35. 525  GOSUB 1000
  36. 530  VTAB 10: PRINT "CORRECT LETTERS: ";L$
  37. 550  VTAB 12: PRINT "    YOU ENTERED: ";GU$
  38. 560  VTAB 20: INPUT "DO YOU WANT TO TRY AGAIN? ";A$: PRINT 
  39. 570  IF A$ = "Y"  THEN  RUN 
  40. 580  END 
  41. 1000  FOR I = 272 TO 293: READ N: POKE I,N: NEXT I
  42. 1010  DATA 160,1,162,0,138,24,233,1,208,252,141,48,192,232,224,150,208,242,136,208,237,96
  43. 1020  GOSUB 1040: GOSUB 1050: GOSUB 1060
  44. 1030  RESTORE : RETURN 
  45. 1040  POKE 273,12: POKE 287,200: CALL 272: RETURN 
  46. 1050  POKE 273,5: POKE 287,200: CALL 272: POKE 287,250: CALL 272: POKE 287,250: CALL 272: RETURN 
  47. 1060  POKE 273,12: POKE 287,250: CALL 272: RETURN 
  48. 1070  REM SOUND EFFECTS CAN BE CHANGED BY CHANGING "NUMBER OF SHOTS" IN POKE273, AND "LENGTH" IN POKE 287